Oben

Schräg

Halbschräg

Halboben

Seite (1)

>

||

|<

Wellen 3D

Version Stand
27.02.2020
Andreas Jäger

Stand

Seite (2)

Welle 1

Welle 2

Erreger 1

Erreger 2

Kurve 1

Kurve 2

Punkt

Welle 1 + 2

λ =

A =

Δy =

Linien 1

Linien 2

t =

l = 6.28 (slider from 3 to 10, step 0.001)
A: 1
r0: 10
t: 0
view: 3
d = false
Dy = 7 (slider from 0 to 7, step 0.01)
T = 3.1415 (slider from -5 to 5)
phi1: 4.7437
f1(x, y) = (A * sin(((2 * π) * sqrt(x^(2) + (y + Dy / 2)^(2)) / l) - ((2 * π) * t / T)))
f2(x, y) = (A * sin(((2 * π) * sqrt(x^(2) + (y - Dy / 2)^(2)) / l) - ((2 * π) * t / T)))
phi2: 2
zP = 4.499999999999474 (slider from 0 to 5)
xP = 6.976271437049206 (slider from 0 to 50, step 0.001)
yP = 6.170505548369302 (slider from -50 to 50, step 0.001)
PP: (xP, yP, zP)
j = Segment((0, ((-Dy)) / 2, 0), (xP, yP, zP - 4.2))
k = Segment((0, Dy / 2, 0), (xP, yP, zP - 4.2))
α = Angle(yAxis, j)
β = Angle(yAxis, k)
c = CurveCartesian((r * cos(90° - α)), (r * sin(90° - α)) - Dy / 2, (A * sin(((2 * π / l) * r) - (2 * t))), r, 0, j)
e = CurveCartesian((r * cos(90° - β)), (r * sin(90° - β)) + Dy / 2, (A * sin(((2 * π / l) * r) - (2 * t))), r, 0, k)
D: ((j * cos(90° - α)), (j * sin(90° - α)) - Dy / 2, (A * sin(((2 * π / l) * j) - (2 * t))))
C: ((k * cos(90° - β)), (k * sin(90° - β)) + Dy / 2, (A * sin(((2 * π / l) * k) - (2 * t))))
bS: true
bw1 = true
bw2 = false
be1 = true
be2 = false
E: ((0 * cos(90° - α)), (0 * sin(90° - α)) - Dy / 2, (A * sin(((2 * π / l) * 0) - (2 * t))))
F: ((0 * cos(90° - β)), (0 * sin(90° - β)) + Dy / 2, (A * sin(((2 * π / l) * 0) - (2 * t))))
bk1 = false
bk2 = false
bP = false
m = false
Eingabefeld1 = Textfield(l)
Eingabefeld2 = Textfield(A)
rrr: (t / T * l)
Eingabefeld3 = Textfield(Dy)
l1 = Sequence(Circle[(0, ((-Dy)) / 2, A), rrr + ((i * 2) * π) + π / 2, xOyPlane], i, -3, 3)
bl1 = true
bl2 = false
l3 = Sequence(Circle[(0, Dy / 2, A), rrr + ((i * 2) * π) + π / 2, z = A], i, -3, 3)
l4 = Sequence(Circle[(0, Dy / 2, (-A)), rrr + ((i * 2) * π) - π / 2, xOyPlane], i, -3, 3)
l2 = Sequence(Circle[(0, ((-Dy)) / 2, (-A)), rrr + ((i * 2) * π) - π / 2, xOyPlane], i, -3, 3)
n: (2 * π)
Eingabefeld4 = Textfield(t)
Text2: "A_{1} =  " + (LaTeX[(A * sin(((2 * π / l) * k) - (2 * t)))]) + "\cr
A_{2}=" + (LaTeX[(A * sin(((2 * π / l) * j) - (2 * t)))]) + "\cr
A_{3}=" + (LaTeX[(A * sin(((2 * π / l) * j) - (2 * t))) + (A * sin(((2 * π / l) * k) - (2 * t)))]) + ""
a = Sphere((0, Dy / 2, 4.1), 0.2)
b = Sphere((0, ((-Dy)) / 2, 4.1), 0.2)
B: (xP, yP, zP - 4.2)
g = Segment((0, Dy / 2, -4.1), (0, Dy / 2, 4.1))
h = Segment((0, ((-Dy)) / 2, -4.1), (0, ((-Dy)) / 2, 4.1))
i = Segment((xP, yP, -4.2), (xP, yP, 4.2))
f(x, y) = f1(x, y) + f2(x, y) - If[view ≟ 1, A, 0]